home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2008 February / PCWFEB08.iso / Software / Resources / Utilities / ReNamer 4.10 / ReNamer.exe / {app} / Scripts / User defined functions.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2006-06-12  |  453 b   |  21 lines
  1. procedure DoSomething(var Parameter: WideString);
  2. begin
  3.   // Do something here with Parameter.
  4.   // Original passed variable will be changed,
  5.   // because Parameter has been passed as a Var.
  6. end;
  7.  
  8. function DoAnother(Parameter: WideString): WideString;
  9. begin
  10.   // Do something here with Parameter,
  11.   // and return Result as a string.
  12.   Result := '';
  13. end;
  14.  
  15. var
  16.   S: WideString;
  17.  
  18. begin
  19.   DoSomething(S);
  20.   FileName := DoAnother(S);
  21. end.